#!/usr/local/bin/perl -w
###########################################
# newsyslog-test
# Mike Schilli, 200t (m@perlmeister.com)
###########################################
use strict;
use Log::Log4perl qw(:easy);

# newsyslog configuration:
# /tmp/test.log 666  12  1  *  B /tmp/test.pid 30

my $conf = q{
log4perl.category                  = DEBUG, Logfile
log4perl.appender.Logfile          = Log::Log4perl::Appender::File
log4perl.appender.Logfile.recreate = 1
log4perl.appender.Logfile.recreate_check_signal = USR1
log4perl.appender.Logfile.recreate_pid_write = /tmp/test.pid
log4perl.appender.Logfile.mode = append
log4perl.appender.Logfile.filename = /tmp/test.log
log4perl.appender.Logfile.layout = Log::Log4perl::Layout::PatternLayout
log4perl.appender.Logfile.layout.ConversionPattern = %d %F{1} %L> %m%n
};

Log::Log4perl->init(\$conf);

while(1) {
    DEBUG "test" x 1000;
    system("ls -l /tmp/test.log* | head -2; echo");
    sleep(1);
}
